home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aar.d64 / return labels (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  812b  |  31 lines
  1. 5 REM" [194]Y [210]. [205]ERRITT [214]ANCOUVER, [194].[195].
  2. 10 [143]"24/10/87 9:42 (null).(null).
  3. 15 POKE53280,0:POKE53281,0
  4. 20 PRINT"[147][154]"SPC(10)" [210]ETURN [204]ABELS [146]
  5. 25 [153][199](14)"PRINT(null)SE UPPER CASE/LOWER CASE
  6. 30 INPUT"[159][206]AME OF SENDER[155]";B$
  7. 35 INPUT"[159][211]TREET [193]DDRESS[155]";C$
  8. 40 INPUT"[159][195]ITY[155]";D1$
  9. 45 INPUT"[159][208]ROVINCE[155]";D2$:D$=D1$+CHR$(44)+" "+D2$
  10. 50 INPUT"[159][208]OSTAL [195]ODE[155]";E$
  11. 55 PRINT:PRINT"[198]ROM:":PRINTB$:PRINTC$:PRINTD$:PRINTE$
  12. 60 PRINT"[159][201]S THIS CORRECT? (Y/N)
  13. 65 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]65
  14. 70 [139]A$[178]"N"[167][153]"LOAD":[137]20
  15. 75 [133]"LOADLEFT$OW MANY LABELS DO YOU WANT";A
  16. 80 [153]"STR$O YOU WANT A TEST LABEL? (Y/N)"
  17. 85 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]85
  18. 90 [160]4:[159]4,4,7
  19. 95 [159]12,4,15:[160]12:[139]ST[179][177]0[167][153]"SYS(null)URN ON PRINTER AND PRESS [(null)VAL(null)(null)(null)(null)]OPEN
  20. 100 IFST<>0THENGETF$:IFF$<>CHR$(13)THEN100
  21. 105 IFA$="Y"THENFORX=1TO5:PRINT#4,"---------[212]EST---------":NEXT
  22. 107 IFA$="Y"THENPRINT#4:CLOSE4:GOTO80
  23. 110 FORX=1TOA
  24. 115 PRINT#4,"[198]ROM:
  25. 120 [152]4,[166]5)B$
  26. 125 [152]4,[166]5)C$
  27. 130 [152]4,[166]5)D$
  28. 135 [152]4,[166]8)E$
  29. 140 [152]4:[130]:[152]4:[160]4
  30. 145 [153][199](147)[199](142)
  31.